Інформаційно-довідкова система Пристрій персонального комп`ютера

Реферат

Інформаційно-довідкова система

"Пристрій персонального комп'ютера"

Пояснювальна записка:

Даний програмний продукт, виданий як тема для курсового проекту, представляє собою реалізацію інформаційної системи, призначеної для ознайомлення користувачів основним властивостям тригонометричних функцій. У програмному продукті реалізовані наступні можливості:

1. надання довідки про розробника системи;

2. довідка про найпростіших тригонометричних функцій;

3. надання довідки по роботі з програмою.

Ця програма зручна у використанні, так як має простий і інтуїтивно-зрозумілий графічний інтерфейс.

Перспективами подальшої розробки програмного продукту є: оптимізація графічних можливостей робочої області програми, збільшення обсягу інформації про тригонометричних функціях.

Зміст

Введення

1. Постановка завдання

1.1 Мета розробки

1.2 Функціональні вимоги

1.3 Інформаційні потоки програми

2. Опис і обгрунтування методу розв'язання

3 Алгоритм рішення задачі

3.1 Словесне опис алгоритму програми

3.2 Алгоритм програми

3.3 Обгрунтування вибору мови програмування

4. Проектування інтерфейсу

4.1 Обгрунтування вибору вигляду інтерфейсу

4.2 Особливості організації обраного графічного режиму

5. Опис програмної реалізації

5.1Функціонально-логічна схема

5.2 Опис структур та форматів

5.3 Основні процедури

5.4 Схема взаємодії підпрограм

6 Комплект поставки і порядок встановлення

6.1 Комплекс поставки

6.6 Порядок встановлення

6.7 Запуск програмного продукту

7. Аналіз ефективності

Висновки

Перелік використаних джерел

Додаток А. Технічне завдання

Додаток Б. Керівництво користувача

Додаток В. Лістинг програми

Додаток Г. Екранні форми

Введення

На сьогоднішній день, різноманітні інформаційні системи є, поряд з комп'ютерними іграми, мабуть, одним із самих популярних і затребуваних видів програмного забезпечення. Їх призначення - допомога в процесі придбання та накопичення користувачем знань і навичок у вузьких предметних областях. Спектр застосування інформаційних систем досить широкий, і це обумовлює високий споживчий попит на програмні продукти подібного типу, що в свою чергу сприяє подальшому їх розвитку, і появи все нових і нових видів навчальних систем. Практично на кожному персональному комп'ютері можна зустріти хоча б одну таку програму. Їх надійність та високі показники ефективності призвели до того, що інформаційні системи стали широко застосовуватися в багатьох школах і вузах. А використання ними новітніх досягнень в області мультимедіа дозволяє використовувати такі системи навіть у процесі так званого дистанційного навчання.

Варто відзначити, що, деякі навчальні системи дозволяють так само моделювати на екрані ситуації, близькі до реальних. І це зумовлює ще одну можливість застосування інформаційно-навчальних систем, а саме, їх використання в якості тренажерів - симуляторів при підготовці та перепідготовці фахівців самих різних рівнів в самих різних областях знань.

Дана інформаційна система дозволяє ефективно зберігати необхідну користувачу інформацію та здійснювати швидку навігацію по накопиченому в базі матеріалу.

Таким чином, простота поводження з інформаційно-навчальними системами, їх доступність та зрозумілість широкому колу користувачів, повнота і структурованість викладеної в них інформації, можливість вибору найбільш підходящого для кожного конкретного користувача методу навчання сприяють усе більшій і більшого зростання їхньої популярності. Комп'ютер, забезпечений інформаційно-навчальною системою ставати не просто машиною для проведення складних розрахунків, а й активним помічником у процесі придбання та накопичення нових знань.

1. Постановка завдання

1.1 Мета розробки

Метою розробки даного програмного продукту є створення вузькоспеціалізованої інформаційної системи, призначеної для ознайомлення і навчання широкого кола користувачів, яких цікавить тригонометричні функції.

1.2 Функціональні вимоги

Оскільки основним завданням даного програмного продукту є навчання, то необхідною є його орієнтація саме на користувачів. Необхідно створити умови, при яких ефект від процесу навчання був би максимальним. Тобто необхідно створення простого, зрозумілого, функціонального і привабливого для користувача інтерфейсу, а так само зручних інструментів, які дозволили б використовувати можливості інформаційної системи в повній мірі.

З цієї точки зору оптимальним є графічний інтерфейс. Він зручний і практичний у використанні, а так само є інтуїтивно-зрозумілим, що в нашому випадку є не менш важливим.

Управління основними можливостями системи має бути організовано за допомогою системи розкривних меню, доступ до яких має забезпечуватися безпосереднім вибором.

Довідкова система повинна містити інформацію про спосіб навігації в системі, функціональні клавіші, інформацію про розробника програмного продукту і основні можливості якими володіє дана система.

Система навчання повинна забезпечувати простоту доступу користувача до необхідної йому інформації, а це надає простий графічний інтерфейс, і кнопка вибору певного пункту.

1.3 Інформаційні потоки програми

Даний підрозділ містить схему інформаційних потоків, які фігурують у програмі.

Дана схема надає основні інформаційні потоки даного програмного продукту. Циліндр показує дані, що зберігаються на жорсткому диску комп'ютера. Прямокутник зображує дані, які виводяться на екран.

Стрілками вказані рух інформації в блоках.

Малюнок 1.1 - Схема інформаційних потоків

Даний продукт розбитий на три блоки, за якими закріплена певна інформація:

- За блоком заставки закріплена певна інформація, що виводиться на екран монітора за допомогою програмного коду продукту;

- За блоками інформаційних матеріалів і блоку довідкової інформації закріплена інформація у вигляді файлів, які знаходяться на жорсткому диску.

2. Опис і обгрунтування методу розв'язання

Головними завданнями, поставлені перед програмою, були: створення інформаційної бази матеріалу, висновок з цієї бази необхідного файлу, обраного користувачем. Програма представляє з себе комплекс процедур і функцій, призначених для вирішення вищезазначених завдань. При запуску програми, відбувається початок діалогу користувача з програмою, що реалізований за допомогою графічних користувальницьких меню. Ці меню є чимось на зразок посередника між користувачем і інформаційно-довідковою системою. При необхідності користувач може скористатися необхідним пунктом у меню і тим самим запустити якийсь процес.

Кожен пункт у меню реалізований у вигляді окремої процедури. Це дозволяє легко орієнтуватися в написаному коді і за потреби вносити необхідні корективи і зміни.

3 Алгоритм рішення задачі

3.1 Словесне опис алгоритму програми

Структура програми представляє собою комплекс процедур і функцій. Цей комплекс підпрограм становить загальну функціональність всієї програми в цілому.

Після запуску програми на екрані відбувається очищення його, а потім, виконання процедури, яка відображає головне меню. Потім виконується інша процедура, яка виводить спеціально розроблений інтерфейс програми, потім виконується процедура, що відповідає за роботу головного меню. Далі виконується процедура, яка відстежує натискання клавіш, передбачених у тілі даної підпрограми. При натисканні відповідної клавіші ця процедура робить запуск відповідної процедури. Далі пересуваючись по екранному меню, користувач зупиняється на певному пункті, для яких заздалегідь передбачені процедури, що відповідають за кожен пункт. Екранне меню, розроблене в графічному режимі, містить чотири пункти: інформація, довідка, розробник, вихід.

У разі вибору процедури «розробник» на екран виводиться графічний інтерфейс, що надає користувачеві інформацію про розробника.

У разі вибору пункту «довідка» на екран виводиться довідка з даної інформаційної бази.

У разі вибору пункту «інформація» користувач отримує доступ до ще одного меню, який містить вісім пунктів: історія, Sin X, Cos X, tg X, ctg X, arctg X, arcctg X, допомогою. Кожному пункту меню відповідає свій текстовий файл, що зберігається на жорсткому диску. Пункт «допомогу» на екран виводить довідку з даної інформаційної бази.

У разі вибору пункту «Вихід» користувач автоматично завершує роботу з програмою.

Для виведення наявного матеріалу в інформаційній базі запускається окрема процедура, яка ініціалізує і читає текстовий файл з інформацією про наявні інформаційних файлах і шлях до них на диску.

3.2 Алгоритм програми

При створенні даного програмного продукту використовувався принцип низхідного програмування, тобто завдання розбивалася на деякі підзадачі, кожна з яких у свою чергу знову деталізувалося, поки не досягалися, прості завдання. У першу чергу були виділені і вирішені наступні чотири основні підзадачі:

- Організація для користувача інтерфейсу;

- Організація меню інформації тригонометричних функцій;

- Організація зображення титульного аркуша.

Слід зазначити, що система була реалізована таким чином, що в кожний конкретний момент часу її стан могло змінитися тільки в результаті деяких дій користувача. Тому система використовує тільки так званий послідовний процес, при якому всі дії виконуються строго послідовно. На малюнку 2.1 представлений алгоритм роботи основної програми. Зауважимо, що структурної основною одиницею процесу роботи програми є процес обробки команди користувача. Йому належить основний пріоритет.

Малюнок 3.1 - Алгоритм роботи програми

Малюнок 3.1 Показує алгоритм даного програмного продукту. Його дія обумовлена ​​наступними кроками, які з легкістю управляються користувачем:

1. На початковому етапі роботи програми необхідна її ініціалізація;

2) Після цього промальовується робоче меню, що складається з чотирьох пунктів, яким відповідає певні процедури. Рухаючись по меню, користувач робить вибір;

3) Після цього відбувається обробка команди користувача, яке завершується або 4), або 7), або 8), або 10) рівнем;

4) промальовує меню інформації тригонометричних функцій. Після натискання клавіші керуючої, 4)-ий рівень переходить у 5);

5) Рівень обробки команди користувача, що завершується 6) рівнем;

6) Рівень закриття інформаційних файлів, у випадку пункту виходу рівень переходить на рівень 4);

7) Рівень промальовування меню довідки, який за допомогою керування користувача переходить у 9) рівень;

8) Промальовування титульного аркуша, який за допомогою керування користувача переходить у 9) рівень;

9) Рівень обробки команди користувача завершується 2) рівнем;

10) Рівень виходу з програми.

3.3 Обгрунтування вибору мови програмування

Даний курсовий проект написаний на мові Turbo Pascal версії 7.0

Звичайно, варто віддати належне Паскалю як мові програмування за його наочність при роботі з такими загальними для всіх мов програмування темами, як структури даних, рекурсія, способи та механізми передачі параметрів. А ось що головне в Паскалі, так це його простота: саме тому він в більшості випадків використовується як навчальний мову на початковому рівні підготовки майбутніх програмістів. У ньому доступна для розуміння робота з необхідними процедурами і функціями, загальною синтаксичною конструкцією мови. Однак, Паскаль давно вже морально застарів і досвідченими програмістами не може застосовуватися, остільки існує ряд інших, більш гнучких і практичних у використанні мов.

4. Проектування інтерфейсу

4.1 Обгрунтування обраного виду інтерфейсу

У даному програмному продукті інтерфейс - це робота з графічним режимом. Він дуже зручний у використанні, приємно сприйнятливий для очей. У ньому зможе розібратися навіть зовсім недосвідчений користувач. У нижній частині екрана є рядок підказок, які ще більше спрощують програму для користувача. Тому я вважаю, що обраний мною вид інтерфейсу є актуальним у плані інформаційно-довідковому програмному продукті.

4.2 Особливості організації обраного графічного режиму

Даний інтерфейс складається з кількох пунктів і одиниць: основне меню має вигляд централізованого списку, за яким легко пересувається рядок вибору, інформаційне меню має також централізований список пунктів. У даній роботі статусний рядок має вигляд: затвердити, рух вгору, рух вниз, вихід з програми або меню.

Малюнок 4.1 надає схему організації даного інтерфейсу, який складається з п'яти активних вікон, легко викликають у будь-який момент. Стрілками вказано взаємодія вікон між собою, а також цикл виходу з програми. Статусний рядок допоможе без зусиль пересуватися між вікнами.

Малюнок 4.1-Схема організації інтерфейсу

5 Опис програмної реалізації

5.1 Функціонально-логічна схема

Дана схема надає функціонально-логічну схему.

Малюнок 5.1-Функціонально-логічна схема

Малюнок 5.1 представляє функціонально-логічну схему, яка реалізує логічну функціональність блоків програми. Кожен пункт програми виконує певну дію, тому від кожного пункту зображена лінія, яка показує дію обраного пункту.

5.2 Опис структур та форматів

У даному розділі описані вихідні дані та розібрані їх структура

5.1.1 Вихідні дані

Вихідними даними є дані в пам'яті файлів, що зберігаються на жорсткому диску комп'ютера. Ці файли використовуються для виведення інформації про обрані пристроях персонального комп'ютера, а також для виводу інформації про керівництво користувача. Вони мають розширення «*. txt».

5.3 Основні процедури

Нижче перераховані процедури, які зустрічаються в програмі.

Procedure initgr ();

Процедура для ініціації графічного режиму

Procedure main;

Процедура для реалізації робочого головного меню.

Procedure greator ();

Відображає титульний лист з інформацією про автора програми.

Procedure colo ();

Процедура для виведення екрана привітання

Procedure ReadF (name: string, f1: boolean);

Процедура для ініціалізації файлу.

Procedure select;

Процедура промальовування вікна вибору довідки;

Procedure WorSpece;

Процедура побудови робочої області екрану;

Procedure move;

Процедура вибору меню;

Procedure help;

Процедура промальовування довідкового вікна програми.

6. Комплекс поставки та порядок встановлення

У даному розділі буде розглянуто комплекс поставки програмного продукту, а також порядок встановлення його.

6.1 Комплект поставки

Програмний продукт поставляється на дискеті 3,5 ". У кореневому каталозі дискети знаходиться каталог Saniokkurs, що містить наступні файли:

mykurs. pas - головний виконуваний файл;

Egavga. Bgi - драйвер відеоадаптера;

Keyrus. Com - драйвер клавіатури;

Також у папці mykurs знаходиться ще один каталог, що містить файли

fill. txt - файл містить інформацію про історію тригонометрії;

sin. txt - файл, що містить інформацію про функції sin X;

cos. txt - файл, що містить інформацію про функції cos X;

tg. txt - файл, що містить інформацію про функції tg X;

ctg. txt - файл, що містить інформацію про функції ctg X;

arctg. txt - файл, що містить інформацію про функції arctg X;

arcctg. txt - файл, що містить інформацію про функції arcctg X;

help. txt - файл, що містить інформацію допомоги;

6.2 Порядок встановлення

Процедура інсталяції полягає в наступному:

- Засобами операційної системи створюється каталог для програми (можливо також використання вже існуючого каталогу, але створення для програми окремого каталогу є кращим);

- Засобами операційної системи файли, що входять у комплект постачання, переносяться з каталогу Saniokkurs дискети в підготовлений каталог.

6.3 Запуск програмного продукту

Для запуску програмного продукту для початку необхідно виконати файл Keyrus. Com, а після запустити файл mykurs. Exe. У разі відсутності деяких файлів, система видасть відповідне попередження, і якщо ці файли були критично важливими, припинить роботу.

7. Аналіз ефективності

Дана програма має досить якісним і зрозумілим інтерфейсом. Користувач без праці може зорієнтуватися при запуску додатка за допомогою підказок, що знаходяться в нижній частині екрана. Також одним з достоїнств програми є те, що діалог користувача з програмою здійснюється за допомогою зрозумілих і досить зручних діалогових вікон. Слід також відмітити те, що в цілому, програма виконана в класичному варіанті для додатків, розроблених для операційної MS - DOS. Тобто, це зручна, не набридлива колірна гама, яка не дратує після довгої роботи органи зору користувача.

У програмі реалізована зручна навігація по інформаційній базі, насичена інформаційна база.

Висновки

Після завершення роботи над програмою, її можна протестувати і виявити як переваги, так і недоліки. Мною були виконані поставлені завдання, а саме:

- У програмі був реалізований зручний графічний користувальницький інтерфейс.

Також слід додаткові переваги: ​​це можливість поповнення бази новими інформаційними матеріалами.

У майбутньому, можлива модернізація програми в наступних напрямках:

- Зробити програму більш зручною при читанні матеріалу з інформаційної бази;

- Зробити програму під більш сучасну операційну систему.

Список використаної літератури

1. «Програмування в середовищі Turbo Pascal 7.0», А. І. Марченко; 1998.

2. Конспект лекцій з предмету «ВП і АЯ».

3. Енциклопедія сучасного персонального комп'ютера Москва 2005

4. Ресурс у мережі Інтернет:

http://garbo.umasa.fi/pc/turboobj.html

http://garbo.umasa.fi/pc/turbopas.html

http://infobase.hypermart.net/pascal/programs.html

http://infocity.kiev.ua/

5. Самовчитель Turbo Pascal О.А. Меженний Київ 2004.

Додаток А

Технічне завдання на проектований програмний продукт

А.1 Загальні відомості

Повна назва програмного продукту: "Розробка інформаційно системи« Найпростіші тригонометричні функції »". Її умовне позначення «ВТФ». Робота виконана студенткою 1-го курсу Донецького державного інституту штучного інтелекту (ДонДІШІ), факультету сучасних комп'ютерних інформаційних технологій, групи СУА-05, Булавіним Олександром Миколайовичем.

Підставою для розробки «ВТФ» є завдання, видане кафедрою Програмного забезпечення інтелектуальних систем (поїсом).

Плановий термін початку роботи: 17.02.06.

Дата захисту роботи: 22.05.06.

Курсова робота виконується згідно з графіком, наведеним у таблиці А.1.

А.2 Призначення створення програми ведення

Програма призначена для навчання користувача найпростішим тригонометричним функціям.

А.3 Вимоги до програми

А.3.1 Вимоги до програми в цілому

У цілому до програми пред'являються наступні вимоги:

• зручний і простий для користування графічний інтерфейс;

• зручний спосіб введення-виведення даних;

• контроль дій користувача, пов'язані з роботою програми;

• зберігання інформації в зовнішньому джерелі даних;

- Наявність довідкової інформації

А.3.2 Вимоги до завдань і функцій програмного продукту

Програма повинна реалізувати наступні функції:

• зручний доступ до інформаційного матеріалу;

• висновок легко доступною для сприйняття довідкової інформації;

А.3.3 Вимоги до програмного забезпечення

Програма буде реалізована на мові Turbo Pascal 7.0 і для її роботи необхідна наявність операційної системи MS - DOS 5.0 і вище.

А.3.4 Вимоги до технічного забезпечення

Для коректної роботи програми необхідні:

• IBM - сумісний ПК з процесором не нижче 80386;

• VGA монітор.

А.4 Стадії розробки програми:

Таблиця А.1 - Стадії розробки програми

Додаток Б

Керівництво користувача

Допомога при роботі з інформаційною системою

Інформація.

Відображає список доступних для розгляду тим. Вибравши цей пункт меню, з'явиться вікно з назвою найпростіших тригонометричних функціями. Використовуючи клавіші "вгору", "вниз" і "enter" ви можете вибрати функцію, яка вас цікавить.

Довідка:

Відображає довідкове меню.

Розробник:

Відображає інформацію про розробника.

Вихід:

Використовуючи цей пункт, ви можете вийти з програми.

Додаток В

Лістинг програми

Program my _ kursuch;

Uses Graph, crt;

Var i, j, y: integer;

com: char;

txt: array [1 .. 750] of ^ string;

procedure worspece; forward;

{|----------------------------------------------|}

{| Процедура виведення текстового файлу на екран |}

{|______________________________________________|}

Procedure ReadF (name: string; fl: boolean);

var

com: char;

str: string;

f: text; pos: integer;

n: integer;

i, j: integer;

begin

name: = concat ('\ TXT', name);

cleardevice;

worspece;

assign (f, name);

{$ I-}

reset (f);

{$ I +}

if IOresult <> 0 then

begin

cleardevice;

textcolor (red);

outtext ('Не знайдено файл, перевірте наявність файлу на диску. ');

readkey;

end

else

begin

n: = 1;

while not eof (f) do {Read from Fille in Massiv}

begin

readln (f, str);

txt [n] ^: = str;

n: = n +1;

end;

n: = n-1;

if n <= 25 then

begin

pos: = 40;

for j: = 1 to n do

begin

outtextXY (40,20 + pos, txt [j] ^);

pos: = pos +10;

end;

repeat

until readkey = # 27;

end

else

begin

pos: = 40;

for j: = 1 to 25 do

begin

outtextXY (40,20 + pos, txt [j] ^);

pos: = pos +10;

end;

i: = 25;

while com <> # 27 do

begin

com: = readkey;

if com = # 72 then {/ / / Up}

if i> = 26 then

begin

worspece;

delay (60);

pos: = 40;

for j: = i-26 to i-1 do

begin

outtextXY (40,20 + pos, txt [j] ^);

pos: = pos +10;

end;

i: = i-1;

end;

if com = # 73 then {/ / / PageUp}

if i> = 50 then

begin

pos: = 40;

worspece;

delay (60);

for j: = i-49 to i-25 do

begin

outtextXY (40,20 + pos, txt [j] ^);

pos: = pos +10;

end;

i: = i-25;

end

else

if i <> 25 then

begin

worspece;

delay (60);

pos: = 40;

for j: = 1 to 25 do

begin

outtextXY (40,20 + pos, txt [j] ^);

pos: = pos +10;

end;

i: = 25;

end;

if com = # 80 then {/ / / Down}

if i <= n-1 then

begin

worspece;

delay (60);

pos: = 40;

for j: = i-24 to i +1 do

begin

outtextXY (40,20 + pos, txt [j] ^);

pos: = pos +10;

end;

i: = i +1;

end;

if com = # 81 then {/ / / PageDown}

if i <= n-25 then

begin

worspece;

delay (60);

pos: = 40;

for j: = i to i +25 do

begin

outtextXY (40,20 + pos, txt [j] ^);

pos: = pos +10;

end;

i: = i +25;

end

else

if i <> n then

begin

worspece;

delay (60);

pos: = 40;

for j: = n-25 to n do

begin

outtextXY (40,20 + pos, txt [j] ^);

pos: = pos +10;

end;

i: = n;

end;

end;

end;

end;

com: = # 1;

end;

{---------------------- КІНЕЦЬ -------------------------- -----}

{|----------------------------------------------|}

{| Процедура промальовування вікна вибору довідки |}

{|______________________________________________|}

procedure select;

begin

setfillstyle (1, blue);

bar (0,0,640,240);

setfillstyle (1, yellow);

bar (0,210,640,480);

setcolor (blue);

bar3d (30,215,150,235,0, topoff);

outtextXY (40,220, "Історія");

setcolor (red);

outtextXY (50,250, 'SIN X');

outtextXY (60,280, 'COS X');

outtextXY (70,310, 'tg X');

outtextXY (80,340, 'ctg X');

outtextXY (90,370, 'arctg X');

outtextXY (100,400, 'arcctg X');

outtextXY (110,430, 'Допомога');

com: = # 1;

i: = 1;

j: = 1;

repeat

com: = readkey;

if ((i = 1) and (com = # 72)) then

begin

j: = i;

i: = i +7;

end

else

if ((i = 8) and (com = # 80)) then

begin

j: = i;

i: = i-7;

end

else

f ((y <> 1) and (com = # 72)) then

begin

j: = i;

i: = i-1;

end

else

f ((y <> 1) and (com = # 80)) then

begin

j: = i;

i: = i +1;

end;

setcolor (blue);

case i of

1: begin bar3d (30,215,150,235,0, topoff); outtextXY (40,220, "Історія"); end;

2: begin bar3d (40,245,160,265,0, topoff); outtextXY (50,250, 'SIN X'); end;

3: begin bar3d (50,275,170,295,0, topoff); outtextXY (60,280, 'COS X'); end;

4: begin bar3d (60,305,180,325,0, topoff); outtextXY (70,310, 'tg X'); end;

5: begin bar3d (70,335,190,355,0, topoff); outtextXY (80,340, 'ctg X'); end;

6: begin bar3d (80,365,200,385,0, topoff); outtextXY (90,370, 'arctg X'); end;

7: begin bar3d (90,395,210,415,0, topoff); outtextXY (100,400, 'arcctg X'); end;

8: begin bar3d (100,425,220,445,0, topoff); outtextXY (110,430, 'Допомога'); end;

end;

setcolor (red);

if ((com = # 72) or (com = # 80)) then

case j of

1: begin

setcolor (yellow);

bar3d (30,215,150,235,0, topoff);

setcolor (7);

outtextXY (40,220, "Історія");

end;

2: begin

setcolor (yellow);

bar3d (40,245,160,265,0, topoff);

setcolor (8);

outtextXY (50,250, 'SIN X');

end;

3: begin

setcolor (yellow);

bar3d (50,275,170,295,0, topoff);

setcolor (9);

outtextXY (60,280, 'COS X');

end;

4: begin

setcolor (yellow);

bar3d (60,305,180,325,0, topoff);

setcolor (10);

outtextXY (70,310, 'tg X');

end;

5: begin

setcolor (yellow);

bar3d (70,335,190,355,0, topoff);

setcolor (11);

outtextXY (80,340, 'ctg X');

end;

6: begin

setcolor (yellow);

bar3d (80,365,200,385,0, topoff);

setcolor (12);

outtextXY (90,370, 'arctg X');

end;

7: begin

setcolor (yellow);

bar3d (90,395,210,415,0, topoff);

setcolor (13);

outtextXY (100,400, 'arcctg X');

end;

8: begin

etcolor (yellow);

bar3d (100,425,220,445,0, topoff);

setcolor (17);

outtextXY (110,430, 'Допомога');

end;

end;

until ((com = # 27) or (com = # 13));

end;

{--------------- КІНЕЦЬ ----------------------------}

{|----------------------------------------------|}

{| Процедура побудови робочої області екрана |}

{|______________________________________________|}

procedure WorSpece;

begin

setcolor (15);

setfillstyle (1,9);

bar3d (0,0, getmaxX, getmaxY, 0, true);

setfillstyle (1,7);

setcolor (0);

bar3d (15,15, getmaxX-15, getmaxY-15, 0, true);

setcolor (4);

setfillStyle (1,8);

bar3d (16,16, getmaxX-16, 30,0, true);

setcolor (0);

line (17,32,17, getmaxY-17);

line (17,32, getmaxX-17, 32);

line (getMaxX-17, 32, getmaxX-17, getmaxY-17);

line (17, getmaxY-17, getmaxX-17, getmaxY-17);

bar3d (17, getmaxY-120, getmaxX-17, getmaxY-17, 0, true);

setcolor (15);

outtextXY (90, getmaxY-100, 'Page Up-сторінка вгору, Page Down-сторінка вниз ");

outtextXY (105, getmaxY -80, 'Стрілки вгору і вниз-переміщення по рядках');

setcolor (4);

end;

{---------------------- КІНЕЦЬ -------------------------- --------------}

{|------------------------------------------------ ------------}

{| Процедура виведення реквізитів розробника на екран |}

{|___________________________________________________________|}

procedure greator;

var i: byte;

begin

cleardevice;

begin

i: = 60;

{--------------------------- Малюємо миша -------------------- ------------}

setfillstyle (1,4);

fillellipse (320,240,80,140);

setfillstyle (1,1);

fillellipse (320,240,60,20);

setcolor (15);

settextstyle (4,0,30);

outtextXY (295,235, 'SVE N');

line (250,180,390,180);

line (320,180,320,100);

{------------------------------------------------- ----------------------}

SETFILLSTYLE (1,15);

setcolor (black);

settextstyle (9,0,15);

bar3D (0,460,300,477,0, FALSE);

outtextxy (40,465, 'Будь-яка клавіша-повернення в меню');

bar3D (320,460,638,477,0, FALSE);

outtextxy (400,465, 'Будь-яка клавіша-повернення в меню');

setcolor (10);

outtextxy (120, i, 'ДОНЕЦЬКИЙ ДЕРЖАВНИЙ ІНСТИТУТ ШТУЧНОГО ІНТЕЛЕКТУ');

delay (200);

outtextxy (140, i +40, 'КАФЕДРА ПРОГРАММНОГ ЗАБЕЗПЕЧЕННЯ ІНТЕЛЕКТУАЛЬНИХ СИСТЕМ');

delay (200);

outtextxy (230, i +80, 'Курсова робота');

delay (200);

outtextxy (170,210, 'З ДИСЦИПЛІНИ: "АЛГОРИТМІЧНІ МОВИ І ПРОГРАМУВАННЯ"');

delay (200);

outtextxy (120,260, 'ТЕМА: "Розробка ІНФОРМАЦІЙНОЇ СИСТЕМИ"');

delay (200);

outtextxy (160,280, '"Найпростіші тригонометричні ФУНКЦІЇ"');

delay (200);

outtextxy (480,300, 'ВИКОНАЛА:');

delay (200);

outtextxy (460,320, 'ст.гр.:');

delay (200);

outtextxy (460,340 ,'');

end;

end;

{-------------------- КІНЕЦЬ ПРОЦЕДУРИ --------------------------- }

{|------------------------------------------------ ------------}

{| Процедура вибору меню |}

{|___________________________________________________________|}

procedure move;

begin

com: = # 1;

i: = 1;

j: = 1;

repeat

com: = readkey;

if ((i = 1) and (com = # 72)) then

begin

j: = i;

i: = i +3;

end

else

if ((i = 4) and (com = # 80)) then

begin

j: = i;

i: = i-3;

end

else

if ((y <> 1) and (com = # 72)) then

begin

j: = i;

i: = i-1;

end

else

if ((y <> 1) and (com = # 80)) then

begin

j: = i;

i: = i +1;

end;

setcolor (blue);

case i of

1: begin bar3d (30,215,150,235,0, topoff); outtextXY (40,220, '√ Інформація';); end;

2: begin bar3d (40,245,160,265,0, topoff); outtextXY (50,250, '√ Довідка'); end;

3: begin bar3d (50,275,170,295,0, topoff); outtextXY (60,280, '√ Розробник'); end;

4: begin bar3d (60,305,180,325,0, topoff); outtextXY (70,310, '√ Вихід'); end;

end;

setcolor (red);

if ((com = # 72) or (com = # 80)) then

case j of

1: begin

setcolor (yellow);

ar3d (30,215,150,235,0, topoff);

setcolor (red);

outtextXY (40,220, '√ Інформація');

end;

2: begin

setcolor (yellow);

bar3d (40,245,160,265,0, topoff);

setcolor (red);

outtextXY (50,250, '√ Довідка');

end;

3: begin

setcolor (yellow);

bar3d (50,275,170,295,0, topoff);

setcolor (red);

outtextXY (60,280, '√ Розробник');

end;

4: begin

setcolor (yellow);

bar3d (60,305,180,325,0, topoff);

setcolor (red);

outtextXY (70,310, '√ Вихід');

end;

end;

until (((com = # 13) and (i = 4)) or (com = # 13) or (com = # 27));

end;

{-------------------- КІНЕЦЬ ПРОЦЕДУРИ --------------------------}

{|------------------------------------------------ ------------}

{| Процедура ініціалізації графіки |}

{|___________________________________________________________|}

procedure initgr;

var GD, GM: integer;

begin

Gd: = Detect;

InitGraph (Gd, Gm, ''); {Шлях до BGI драйверам}

If GraphResult <> grOk Then

begin

writeln ('Помилка при підключенні графіки ...');

halt (1);

end;

end;

{-------------------- КІНЕЦЬ ПРОЦЕДУРИ --------------------------- }

{|------------------------------------------------ -----------|}

{| Процедура промальовування довідкового вікна програми |}

{|___________________________________________________________|}

procedure help;

begin

cleardevice;

bar3d (30,215,150,235,0, topoff);

outtextXY (40,220, "Історія");

outtextXY (50,250, 'SIN X');

outtextXY (60,280, 'COS X');

outtextXY (70,310, 'tg X');

outtextXY (80,340, 'ctg X');

outtextXY (90,370, 'arctg X');

outtextXY (100,400, 'arcctg X');

outtextXY (110,430, 'Допомога');

setcolor (12);

outtextXY (50,460, 'Вгору, Вниз-Рух Enter-Вибір');

com: = # 125;

select;

if (com = # 13) and (i = 1) then

begin

readf ('file.txt', false);

help;

end;

if (com = # 13) and (i = 2) then

begin

readf ('edit.txt', false);

select;

end;

if (com = # 13) and (i = 3) then

begin

readf ('search.txt', false);

select;

end;

if (com = # 13) and (i = 4) then

begin

readf ('run.txt', false);

select;

end;

if (com = # 13) and (i = 5) then

begin

readf ('debug.txt', false);

select;

end;

if (com = # 13) and (i = 6) then

begin

readf ('compile.txt', false);

select;

end;

if (com = # 13) and (i = 7) then

begin

readf ('options.txt', false);

select;

end;

if (com = # 13) and (i = 8) then

begin

readf ('help1.txt', false);

select;

end;

end;

{-------------------- КІНЕЦЬ ПРОЦЕДУРИ --------------------------- }

{|------------------------------------------------ ------------}

{| Процедура промальовування головного вікна програми |}

{|___________________________________________________________|}

procedure main;

begin

cleardevice;

{----- ПРАПОР ---------}

setfillstyle (1,4);

bar (0,0,640,240);

setfillstyle (1, yellow);

bar (0,210,640,480);

{--- КІНЕЦЬ ПРАПОРА ----}

{----------------- Промальовування дискети -----------------------------}

setfillstyle (1,9);

BAR (100,100,200,200);

setfillstyle (1,8);

BAR (105,105,110,110);

BAR (190,105,195,110);

setfillstyle (1,8);

BAR (130,100,170,140);

setfillstyle (1,15);

BAR (120,150,180,180);

setcolor (red);

outtextxy (120,160, 'COS + SIN =');

outtextxy (120,190, 'SUMSUNG');

{------------------------------------------------- -----------------}

setcolor (black);

outtextxy (200,120 ,'----> ARCTG X ');

outtextxy (200,140 ,'----> ARCCTG X ');

outtextxy (200,160 ,'----> ARCSIN X ');

outtextxy (200,180 ,'----> ARCCOS X ');

setfillstyle (1,4);

setfillstyle (1, yellow);

setcolor (blue);

bar3d (30,215,150,235,0, topoff);

outtextXY (40,220, '√ Інформація');

setcolor (red);

outtextXY (50,250, '√ Довідка');

outtextXY (60,280, '√ Розробник');

outtextXY (70,310, '√ Вихід');

SETFILLSTYLE (1,15);

setcolor (black);

settextstyle (9,0,15);

bar3D (0,460,300,477,0, FALSE);

outtextxy (40,465, 'Вгору, Вниз-Рух ");

bar3D (320,460,638,477,0, FALSE);

outtextxy (400,465, 'Enter-Вибір');

setfillstyle (1, yellow);

setcolor (12);

com: = # 125;

move;

if (com = # 13) and (i = 3) then

begin

greator;

eadkey;

main;

end;

if (com = # 13) and (i = 1) then

begin

help;

main;

end;

if (com = # 13) and (i = 2) then

begin

readf ('help.txt', false);

main;

end;

end;

{-------------------- КІНЕЦЬ ПРОЦЕДУРИ --------------------------- }

begin

initgr;

for y: = 1 to 750 do

new (txt [y]);

main;

for y: = 1 to 750 do

dispose (txt [y]);

End.

Додаток Г

Екранні форми

Рисунок Б.1 Екран привітання

Рисунок Б.2 Вид головного меню

Малюнок Б.3 Вид вікна про програму

Малюнок Б.4 Вид вікна наочного подання персонального комп'ютера

Малюнок Б.5 Вид вікна інформаційно-довідкового матеріалу